if br>=57
   if fl>0
      eject
   else
      fl=1
   endif
   cl=50
   hl=hl+1
   @  2, 29 say 'LIST OF REORDER STOCK'
   @  3, 29 SAY '---------------------'
   @  4, 63 say 'PAGE : '
   @  4, 70 say hl pict '999'
   @  5, 63 say 'DATE : '
   @  5, 70 say DATE()
   @  7,  0 say repl('=',79)
   @  8,  1 say 'CODE'
   @  8,  8 SAY 'DESCRIPTION'
   @  8, 30 SAY 'TYPE'
   @  8, 43 SAY 'CONTENT'
   @  8, 53 SAY 'REFIL'
   @  8, 59 say ' ACT.BUY'
   @  8, 70 say 'SUGGESTED'
   @  9,0 say repl('-',79)
   br=9
endif
br=br+1
NUM=ST_MAX-ST_ACT_BUY
@ BR,  1  SAY  KODE
@ BR,  8  SAY  NAME
@ BR, 30  SAY  TIPE
@ BR, 43  SAY  QANT
@ BR, 50  SAY  ST_REFIL
@ BR, 59  SAY  ST_ACT_BUY
@ BR, 69  SAY  ST_MAX-ST_ACT_BUY
@ BR+1,  8  SAY  UNIT
@ BR+1, 25  SAY  BUY_UNIT
IF BUY_SELL_R<>1
   @ BR+1, 40  SAY "of"
   @ BR+1, 43  SAY  BUY_SELL_R PICT '9999'
   @ BR+1, 48  SAY  SELL_UNIT
ENDIF
BR=BR+2
RETURN


